#!/usr/bin/env perl 
#===============================================================================
#
#         FILE: Date_Manip_2.pl
#
#        USAGE: ./Date_Manip_2.pl  
#
#  DESCRIPTION: 
#
#      OPTIONS: ---
# REQUIREMENTS: ---
#         BUGS: ---
#        NOTES: ---
#       AUTHOR: YOUR NAME (), 
# ORGANIZATION: 
#      VERSION: 1.0
#      CREATED: 07/31/2013 02:52:02 AM
#     REVISION: ---
#===============================================================================

use strict;
use warnings;
use utf8;
use Date::Manip;

my $date1 = "Fri Jun  6 18:31:42 GMT 2003";
my $date2 = "2003/05/06";
my $flag=&Date_Cmp($date1,$date2);

if($flag<0) 
{
        print "date1 is earlier!\n";
} 
elsif($flag==0) 
{
	        print "the two dates are identical!\n";
}
else
{
	        print "date2 is earlier!\n";
}
exit 0;

